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A PROGRAM  FOR  COPYING  A GEODATA  DATA  TAPE 


1.0  INTRODUCTION 

1.1  Title 

Program  for  copying  a GEODATA  data  tape. 

1.2  Identification  Name 
GEOREAD. 

1.3  Classification  Code 
None. 

1.4  NRL  Research  Computation  Center  Identification  Number 
None. 

1.5  Entry  Points 
GEOREAD. 

1.6  Programming  Language 

Language:  3600/3800  Fortran. 

Routine  Type:  Program. 

Operating  System:  Drum  Scope  2.1. 

1.7 

1.7  Computer  and  Configuration 
CDC  3800. 

1.8  Contribution  or  Programmer 

Marilyn  L.  Blodgett,  Code  4223MB  Research  Computation  Center,  Office  of 
Director  of  Research,  written  for  Environmental  Sciences  Section,  Acoustics 
Division. 

1.9  Contributing  Organization 

NRL  — Naval  Research  Laboratory,  Washington,  D.C.  20375. 

NOTE:  Manuscript  submitted  January  9,  1975. 
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1.10  Program  Availability 

If  supplied  with  a magnetic  tape,  a copy  of  this  program  will  be  made  available 
by  the  Environmental  Sciences  Section,  Acoustics  Division. 

1.11  Verification 


This  program  has  been  used  and  tested  by  the  Environmental  Sciences  Section, 
Acoustics  Division. 

1.12  Date 


September  1974. 


2.0  PURPOSE 

2.1  Description  of  the  Routine 

The  program  reads  a data  tape  written  by  program  GEODATA  and  copies  all 
or  portions  of  the  data  by  listing,  by  punching  cards  and/or  by  writing  a new 
tape.  The  input  data  tape,  as  well  as  the  new  tape,  is  written  in  the  format 
recommended  by  the  National  Research  Council  of  the  National  Academy  of 
Sciences  with  one  slight  modification  for  the  navigational  data.  There  is  one 
logical  record  (of  80  characters)  for  each  data  point.  The  different  types  of 
data  (navigation,  bathymetry,  and  magnetics)  are  separated  by  an  end-of-file 
mark  with  a double  end-of-file  mark  at  the  end  of  all  the  data.  The  cards 
will  be  punched  in  the  same  format  as  the  tape. 

The  program  has  one  input  card  which  specifies  which  types  of  data  should  be 
copied  and  how  they  should  be  copied.  If  only  certain  portions  of  the  data 
are  to  be  copied,  the  card  specifies  the  dates  and  times  or  the  latitude  and 
longitude  values  defining  the  desired  area. 

2.2  Problem  Background 

A program  was  needed  to  copy  GEODATA  tapes  in  order  to  exchange  the 
data  collected  by  oceanographic  and  geophysical  cruises  with  other  facilities. 
The  use  of  the  format  recommended  by  the  National  Research  Council  of  the 
National  Academy  of  Sciences  simplifies  the  reporting  of  such  data. 


3.0  USAGE 

3.1  Calling  Sequence  or  Operational  Procedure 
Not  applicable. 
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3.2  Arguments,  Parameters,  and/or  Initial  Conditions 
Not  Applicable. 

3.3  Space  Required  (Decimal  and  Octal) 

3.3.1  Unique  Storage 

2113  octal  (587  decimal)  locations  exclusive  of  system  library  functions. 

3.3.2  Common  Blocks 
None. 

3.3.3  Temporary  Storage. 

None. 

3.4  Messages  and  Instructions  to  the  Operation 
None. 

3.5  Error  Returns,  Messages,  and  Codes 
None. 

3.6  Informative  Messages  to  the  User 
None. 

3.7  Input 

The  program  has  one  input  card  which  specifies  which  types  of  data  (navigation, 
bathymetry,  magnetics)  are  tc  be  copied,  how  they  are  to  be  copied  (list,  punch, 
or  write  new  tape),  and  the  specific  portions  of  data  to  be  copied.  Appendix 
B is  a complete  description  of  the  input  setup  and  shows  samples  of  the  format 
for  the  three  types  of  data  on  the  GEODATA  data  tape. 

3.8  Output 

The  program  will  write  a new  tape  on  logical  unit  12  in  the  same  format  a»  the 
GEODATA  input  tape  (see  Appendix  A).  It  will  also  punch  cards  in  the  same 
format  — one  card  for  each  logical  record.  There  is  also  an  option  for  listing 
all  the  required  records  on  the  standard  printer  (logical  unit  61).  Appendix  C 
is  a sample  output  listing. 

3.9  Formats 

Appendix  B,  which  shows  the  program  deck  structure,  describes  the  formats. 


3 


BLODGETT  AND  MASS1NG1LL 


3.10  External  Routines  and  Symbols 

SKIPFILE, 

XMODF. 

3.11  l lining 

The  time  required  depends  on  the  number  of  records  to  be  read  and  copied. 
3.12'  Accuracy 

Not  applicable. 

3.13  Caution  to  User 
None. 

3.14  Program  Deck  Structure 
See  Appendix  B. 

3.15  References  — Literature 

“Formats  for  Marine  Geophysical  Data  Exchange,”  National  Academy  of 
Sciences,  June  1972. 

M.L.  Blodgett  and  J.V.  Massingill,  “A  Program  for  Storing  Oceanographic  Data 
on  Magnetic  Tape,”  NIIL  Report  7861,  March  1975. 

4.0  METHOD  OR  ALGORITHM 
Not  applicable. 

5.0  1 LOW  CHART  AND/OR  SOURCE  LANGUAGE  LISTING 
Flow  chart  and  listing  are  given  in  Appendix  D. 

6.0  COMPARISON 

There  are  no  other  known  programs  available  for  comparison. 

7.0  TEST  METHOD  AND  RESULTS 

A sample  of  the  listing  for  all  three  types  of  data  are  given  in  Appendix  C.  Samples 
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of  the  data  records  written  on  the  new  tape  of  punched  on  cards  are  seen  in 
Appendix  A. 


8.0  REMARKS 
None. 
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SAMPLE  DATA  RECORDS 


Navigation 


‘implies  a decimal  point. 
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Car 

Numner 

Card 

Title 

Column 

Number 

Description 

1 

.lob 

1-21 

7/9  JOB,  charge  No.,  ID  No.,  time. 

See  page  2-2  of  the  3600/3800  Computer 
System  Drum  Scope  Manual. 

2 

Equip 

1-18 

7/9  EQUIP,  10=**,  RO,  HI 

3 

Equip 

1-18 

7/9  EQUIP,  12=**,  WO,  HI 
10,  12  = logical  unit  number. 

RO  = read  only.  WO  = write  only. 

HI  = high  density. 

See  Page  2-3  of  the  3600/3800  Computer 
System  Drum  Scope  Manual. 

4 

Fortran 

1-6 

7/9  FTN,  X 

If  a listing  of  the  program  is  required,  add 
an  L after  the  X (7/9  FIN,  X,  L).  See  page 
2-20  of  the  3600/3800  Computer  System 
Drum  Scope  Manual. 

5 

Program 

GEOREAD 

Deck  of 
Cards 

Fortran  program  deck. 

6 

Scope 

10-14 

SCOPE 

7 

Load 

1-5 

7/9  LOAD 

8 

Run 

1-13 

7/9  RUN,  T,  P,  R,  M,  D 
T = time  limit  in  minutes 
P = maximum  number  of  print  or  write 
operations. 

R,  M,  D may  be  left  blank.  See  page  2-15 
of  the  3600/3800  Computer  System  Drum 
Scope  Manual. 

9 

Parameter 

1 

0 or  1 

0 = skip  first  file. 

1 = cof y first  file. 


2 1,  2,  or  3 

The  first  file  is: 

1 = navigation, 

2 = bathymetry, 

3 = magnetics. 

(Continued) 


10 


NRL  REPORT  7862 


Card 

Card 

Column 

Number 

Title 

Number 

Description 

3 0,  1,  or  2 

0 = skip  second  file. 

1 = copy  second  file 

2 = end  of  files  to  be  copied. 

4 1,  2,  or  3 

The  second  file  is: 

1 = navigation, 

2 = bathymetry, 

3 = magnetics. 

5 0,  1,  or  2 

0 = skip  third  file. 

1 = copy  third  file. 

2 = End  of  files  to  be  copied. 

6 1,  2,  or  3 

The  third  file  is: 

1 = navigation, 

2 = bathymetry, 

3 = magnetics. 

8 0 or  1 

0 = do  not  copy  the  specified  files  on  mag- 

netic tape 

1 = copy  the  specified  files  on  magnetic 

tape. 

10  0 or  1 

0 = do  not  print  a listing  of  the  specified 

files. 

1 = print  a listing  of  the  specified  files. 

12  0 or  1 

0 = do  not  punch  cards  of  the  specified  files. 

1 = do  punch  cards  of  the  specified  files 

(one  card  for  each  logical  record). 

14  0,  1,  or  2 

0 = only  the  data  within  a certain  area  is  to 

be  copied.  The  latitude  and  longitude 
defining  the  area  are  in  Columns  31-70. 

1 = only  the  data  taken  during  a certain  time 

interval  is  to  be  copied.  The  beginning 

(Continued) 
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Card  Card  Column 

Number  Title  Number  Description 


and  ending  time  are  defined  in  Columns 
15-30. 

2 = all  the  data  are  to  be  copiea. 


If  Column  14  = 1: 

15-22  07172130 

This  is  the  time  the  program  starts  copying 
data. 

Columns  15-16  = month, 

Columns  17-18  = day, 

Columns  19-20  = hour, 

Columns  21-22  = minute. 

23-30  08152215 

This  is  the  time  the  program  stops  copying 
the  data. 

23-24  = month, 

25-26  = day, 

27-28  = hour, 

29-30  = minute. 

In  the  above  example  (Columns  15-30)  the  data  between  July  17 
at  21  hours  and  30  minutes  and  August  15  at  22  hours  and  15 
minutes  will  be  copied. 

If  Column  14  = 0: 


31-40  40.50 

This  is  the  southernmost  latitude  of  the 
area  to  be  copied. 

41-50  50.C0 

The  northernmost  latitude. 


51-60 

61-70 


10  End-of-File 


-28.00 

The  westernmost  longitude. 

-14.00 

The  easternmost  longitude.  Columns  31-70, 
the  positions  are  in  degrees  and  hundreths  of 
a degree  (not  degrees  and  minutes).  Southern 
latitudes  and  western  longitudes  are  preceded 
by  a minus  sign. 

One  EOF  card  is  needed  to  terminate  the  run. 
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1 J 


' rtCV 

U 


c If  O r r w \ 


•c  c c c -c  e c * 


u • c c 

am  • • ■ ....... 

9u;^«il>r<c»  o^ivn 
^ * < < < < <*.**-*■  f r 

| fv  fv  fw  fw  f%  c w o.  f>«  r.  tv  o. 


•C  C « -fc  « 


c « 

C « C 4 


-■c.  c.c  c ccc  e-e*«  c>c 


c c.c  -C  C 1C 


•C  «C  C>C>C  CC  C C C c. 


o « c *-  o r r- 

i o r-  r » <v  r>*  r> 
» • ►»  r»  <*>  c 

* « « “ ^ 


• ri<or*#  **  <v 


«*•*>« 


• c^ivcc^ricir-i 
c tnrifc^r  erxn 


> 

CC 

I — 
LU 

2: 

>- 

X 


< 

CQ 


« O O O ON 
® ^ H*rC.,„ 
in  «rs  rvQo>  9 o 


LU 


OOOOOOr»r*rlTinH»1H 


wnrjfjrjf,  ww******. 


ssissiSisssxsjasaaaxxaxRasiasissassssisiasassasjassRssiKssaasRKSRsiRsias: 


*u 


Ui  LU 

cz 

«JE  oooooooooooooooooo 


OOOOOOOOOOOCJ 


uoooooooo 


ooooonooooooooooooo 


2222222 22222222222 2 22222 


Cl—  ■ 

/w  « « « « « 


onoouauoaoouuooooi 


-rvr^rvrHr-rvr..r^#*.^.rvrvrwr^fsr^fvr^r.r»rvr^r^  r-.  r*  r»  r«*  r>?  r- 
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SMIP  AN"i  CRUISE  I DENt  I F I Ca  r i 0n  7^1602 

NA V I GA  T r 0 N DATA 

NUMBER  flF  NAVIGATION  CARDS  READ  P 6o 

number  »f  logical  records  written  tiw  tape  s $o 
Bathymetry  data 

depth  data  GIVEN  In  uNCORRECTED  MpTERS 
matthewg  ?£nes  passed  through  were  123 
NUMBER  °F  Bathymetry  cards  read  • 72 

Number  f logical  records  written  ■ 357 

MAGNETKS  CATA 

HEIGHT  f N FEET  A00VE  0R  BElOW  SEA  uEVEL  IS  ,20 

number  -f  magnetics  cards  read  ■ 23 

NUMBER  ®F  LOGICAL  RECORDS  WRITTEN  • 258 
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SOURCE  LANGUAGE  LISTING 


1 

3 


6 

7 

10 


• SS'jRaM  GfcSWEAC 

RfcAL  LA  mjN,l.ATHAX,uesCMAX,l.ENQPlN 
Cl*SNSluN  If UE13I,ITYFE(3) 

READ  INPUT  CAROS 

, Rf  1F  xcepv.LiST.  IPONCH,  ISKJ^,  idatei 

1*  l*?lf  X y*  1^2  • j*>R2»LATMIN,LAtf'AX,LeNUMJN|LeNGMAX 

rsRhii  (eU,Al2,«l«#4riC,ii 
I * I • 1 

Jf <l,UT,3)  GG  re  «cc 
IfCIflleill.EC.iJ  ce  TC  4 
If  (If  ILcin  .EC, 2)  ce  TS  600 
CALL  SKJP>  IlEIIOJ 
GE  7G*  3 

4 K l No* l TTPe ( l ) 

3i  ic  (ici.201. 301), KINO 

C NAVIG  ► HE' 

IOC  If (IClPy.nE.I)  G0  T6  20 

ge  re  xu 

lC1  ?E*P  jlO»S)CfltlSE  • l TPZNE , IYE*B,I*6NTH|  lOAY»HR, XMIN,XLaT,XL8NQ,  JFIX, 

JM  Vi  I X 

3 f£f.SA I (A8.I5, I2,I2,I2,lXF2,f3,fe,4,>«,4,XXll,7XI5,24X) 

If (ISChsCKjIO)  101,6 
if !?Sf ,io)  >:c,/ 

IRCNaJRlN  * 1 
If  ( ISMr-lla.S.lOO 

Ilf  I^NAvf  j^CqL,SE*  ,T"*KE*  IYEAR.HGNTn,  IDAY.RR.XMIN'XLAT.XtBSG, 

ICN«IUN  * 1 
3*  I G" 2U 

i3T::^i;Lin^^iXLAT,8TaATMX  • eB • *LQNG. LT .lSMGM J N . e« . xlcng. 
GC  IS  1U0 

ICATlAPiSIM.iCC  ♦ ICAY 

P INuTt s"R»xOO  • Xpj\/ic 

If (iCAYi.LT.lCATtX.if ,I0AYX,GT,ICATt2)  G«  Te  101 

IMlLAvX.e0.ICA':fci,AK0,MINClf:L6,IR«l,fiR,lDAYx,E0,lDATE2.AND,HINUT 
IE , Ge , I h«2 I GS  T0  xci 
GE  1C  1 u 0 

CHSCOa  '■ulYCH  CARO 

If  ( l PuNlh  , *Jfc  , 1 ) G6  T £ JO 

Ilf lxENAvrix  CBL,St',™2NE,,YE4R'P8NIM»!0*v*MR',<M*N*x‘-AT,xi.8Na, 

C CHECK  |f  LIST 
30  IE  <LXsT,%e,i»  gs  if  101 

|F("eu(NUTi,6C).NE,l)  GS  T0  32 
HR  I 7 !:  i 61 , 9Cl ) 

FERHAT«iHl,x23MSHlF  ANC  CRI.ISE  IIHE  YEAR  m6NTH  OaY 
2 f lx ) "R  M,NV’TE  LATITUCE  L0NGITUDE  Fix 

«RI TE»6l,902> 

FSRHAMiH  ,24H10EKTIFICATI£N  ZfcNfe  , 7»X , 22HDESCR I FT  I SN  IUUHB 

1 E R ) 

KUH*1 

ZPlNMMIN/10 

HR  I IE  1*1, 31) CRUISE, 1THZNE, I YEAR , HesjK, ID*Y, HR, ZMlN, XLAT, XL0NO, 

20 


20 


901 

902 
32 
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31 


201 

40 

46 

4? 

90 


40 


49 


HP  l*iN*vrjx 

i«»l!etxoll9>2XA8'7*I5'7*,2,7XX2'7X,2*7':r2*7Xr*,x*6xra'4'5Kr9*4* 

• 1 

G6  lE'lUl 

900  ihJcupy.ne.i)  o@  re  3 

END* lue  u 
GS  T 0 3 

C B*THYMfcTt«Y  FJUE 
200  JMjciPY.NE.n  00  T9  60 
G£  f S 9u 

lt*V^:x!!cHMETl[I,FJ*,T,’^N6',VE*R,KeNT*‘tD*T,HR*XM,N'X!•AT'XLeN6, 

FEhSai  (*8ili»,3I2ilXFi,F3,Fel4,F9l4,J0XF3« J9.I2.16X) 

IF  ( JGtHtCX.ljj  201,46 
JF(tex,io»  900,47 
II<3d*IRoE  * J 
|F((SKlr.l)  46,49,200 

ir!if^1fr52!TS^J?fc*ITMm,,VEAB,H8NIH,,0*Y,HR,,<M,N*XL*T*XL8Na, 

i a 1 , Jfr  (X 

I C9» I OB  »'l 
G£  TC  6(1 

1ST  !uGNGi=AS>,_GeHTO<20lXLAT,eT •LA™A,‘  ••Rixl0N<S.I-T,l§NaniN.9RlXl0Na. 

Gc  T £ 200 

ICayi»hb,mh.icO  * ICiY 
P JNOTc»hkIi3o  * Xpjn/ic 

IMIC*Yi,LT.!C*T£l,9S, IDXVj.OT, JC*Tt2)  Q0  T9  2«1 
2E^Ge^Hi2j3uRtT8E2ClKD,P,NLTE,LE,,M‘1,0R'IDAVl,EO,,£l*TE8,*ND'M,NUTE'CIE,,MH 

Gc  T9  200 

C CHECK  JF  PgNOM  9XTHYHETSY 
60  JF ( iPunohIne,!  > U6  T£  Ji 

iL*vFii^icsSeT^rFi*E*ITF2Ne*  lv6*B»f'ei,,TH»  lD*▼.HR•xH|^•.xL*T,x^.e^^G, 

c check  If  usi  axTxYMETsv 

91  IF (oIsTjNt.i)  G9  TO  201 

IF  (HSii{NUH,60),NE.l)  GE  T9  92 
kRITE(61,»C4) 

FeRfi*t<lHi(i33i-SH|p  iNt  CRUSE  TIME  YEAR  m0nTh  C*y  hbu„ 
2ECTcCyT?M  »T^i£lsV“e  L8NGIUCE  CORRECTED  UNC0RRECTEO  C9»R 
• RlTEin, jc5) 

FCRHX | (JH  ,22hI0ENTlFlC*Tiex  Z6N6 , 65X , 44HF*Th8HS  METERS 

1 HfciEKS  Z9sE) 

KUM»1 

zx  IN»xmjn/jo 
2AVX IXCUXVFIX/Jt 

SICkczXVFIX.1,858# 

iz«v^ IxtilEpf  icnniT*  JJ^NE»XVEAB,KeNIM»  *CAY»MR,2HXN#xLAT,xl.0NO, 

/r5iri^,;??A8*>x*5,3‘&x,*,*9XF2,9*r4*i,4xr8*4*’xr»*<*5xF‘*i»Mf‘-»* 

1,1,7X19,9X12) 

KOMaNgH  • 1 
66  T S "201 
C P«GKETlC9  x I L E 


904 


909 


92 


41 
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301 

60 

306 

207 

310 


3ce 


30$ 


300  JF<|CbPT,lvE.l>  60  TS  70 
GS  TC  310 

Cfc*0(10»Ay  ICSLlSSi  JYElR,)>eMh,  jd*V,hr,xmjn,Xi.*T;Xl8MG, 

1-MVP  Ja,  jCHMfcT 

rea=*i (Aa;:s,jj2,ixF2,F3lFe,4,F9,«,x3X2js,!»x) 

IF  I JSb»sC«»10I  301,306 
JFlfcEF.io)  630,30/ 

IRDH*IRum*  i 

IF(JSMk.I)  358, 3Q$ 1 3 00 

wRITE(l4,60)CRCl$fe,ITM2NE,IYEAR|HSNJH,|D*Y,HF),XH|NiXLAT,>.t9NG, 
1N4V» I x , j c«MET 
icr-iun  *'i 
GO  IS  70 

JF(Xt*T.UI .LATKJN.eR.XLAT.GT.LATHAX  , OR , XlBNG , LT , L0NGM J N , SR , XLOMG , 
1 G T ,1  " H A X ) GE  T0  301 
GE  TS  3u 0 

JC*Y1«mbnih*ioo  ♦ I Cl Y 
Kj\\jTt<inRll35  « XHJN/10 
JF(jCiYi,l.T.ICITfcl,2R,IDiYl,GT,lDlTt2J  G0  T0  30i 

IF  t JEAYi.cO.ICATEl.AAC.MtNLTE.LE, JhKl,srt,lDlYi,EO,lD*TE2.*ND, 

If”  JNuTfe.uE  , l*R2  ) GE  T£  *01 
GE  TE  300* 

C CHECK  JF  PUNCH  PAGNtlJCS  FfcCGRCS 

70  if ( i punu«]|ne , 1 ) gs  re  eo 

WRI!Elix,6P)CRl.lSfe,nH2NE,IYEAR,P6NIH#U)AY,HR,XMjN,XU*T,XU0NG, 

1NAVF IX, 1CKM£T 
C CHECK  If  LiSi 

eo  if (cIut.nc.d  ce  te  301 

SFCrStKN'jM.sd.NE.l)  GS  TS  72 
kfi  I TE ( 6l , 907 ) 

FEH-,A]IiHl,i2SHSHIP  INC  CRUSE  TjME  YEAR  PQNTH 
1HSUH  mjsuTE  LATJTUCE  CENG  I TUBE  TOTAL  MAGNETIC 
2LIL  PAGNE  JCI 
HR  I TE ( 61 « : 38) 

FEH=iAT(iH  ,23RJ0ENTJFICATJSN  20nE,  73* , 29HJ  NJENSJ  TY 

intensity  ) 

NLM.l 


07 


<oa 


DAY 

RESID 


C 


2 ZP IN»xmin/10 

1^4V►■Ix6iC«H£Tfil;lSfe,  ,TMZNE‘  *YE*R»K6NlHi  ID*Y*HR,ZMlN,XLAY,XL0NG, 

73  :s:w:  j2*48,6xi5»3(6,,i2,*exf  2»6*Fa»i'5XFB,4,4XF9,4,exi5,i5xu) 

GE  T E ' 3 0 1 

600  IF  <iCbP»,NE.l)  G0  TO  700 


ENDF  ILE  12 
ENOFILE  12 
REblMI  12 

hRITE  SUi  FINAL  CATA 
70C  IF(ISkIp.I)  4Q0,4Q1|402 

402  WR I !E I8i,403) 

403  reRMAI liHl,46RTHt  FREGRAP  SHELLC  HAVE  C0PJEO 
GE  T B 410 

400  kR I TE (61 , 404 ) 

^04  FERMA2 (iHi,70HTNE  FREGRAP  SHELLC  HAVE  COPIED 
IWPICH  Fall  SETbEEN) 
kfi I TE 1 61 , 40S  ) LATMJN.LITPAX 


The  ENTIRE  TAPE) 

all  the  date  points 
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405 


406 


401 

407 


4oe 

40« 

410 

411 

412 
IS 


(iHC,7x,i6H!,5tTh  LATJTLCE  , F*0 , 5 , 'AX16WN0RTH  LATITUDE  ,F10, 
!«RME(61,4P6>uSNGf'lN,uENGMAX 

<iHU,7X;6h«tST  LEND l TLCE  iF1u,9,5*16h£aST  LONGJTUDfc  iFl0.5 

OE  IS  «10 
NSITE(6i,4C7> 


F £ 3 f«  * r (lHi,75H?ht  FHfGRif*  SHELLC 

IMCh  wE*E  TAKEN  BETWEEN) 

PEI*: jAiEl/iOC 

CAYi«  lOATii-PEi »mc 

JT^in  H>r  1/130 
iNi*:*->si-iif'i«ico 
f»E2*I  JA^ti/icC 
r*7i*iDATt2->'e2j)oc 
ITM*slH>i2/l00 
J.»2N2*IipRe-lTT2»i0C 
KSJlEl6i#4  0(}>f’Sl*i,ArilITPl,J»<JKl 
F£RWAI(lHj,7HWSNTH  i I 2 , 3X9HCAY 
KftIT£t6i.,«,J»)r'?2,tAT2,ITf<2,Jt<JN2 
F£RHA  t (l*ii,7HHf\T>.  i 12  , 3 X5  R D A Y 
• RME(6i,4;i)|RQNa|CK 
FCKTA | <i*g,19rTHE  FBPGRAW  READ 
1EF  !EC  i J9,^*7k.R.-CifiC£  ) 
kSjic(61,4i2)lHG9, ICE 
FERka  l (iwii , 15»-THc  frjgraw  READ 
IEFIcC  . ia.5A7h«cCtK£;S> 

WR I IE (61 1 413  ) I RQH , J C H 
F£RSa 1 ( 1HO, 19hTh6  FRCGRAW  READ 
1PIEJ  , 19.5X7hRcCESCE) 

STOW 


HAVE  C0PJED  ALL  THE  DATA  POINTS  H 


»F*,jx<mhr  ,I2,3X5HMJN  .12) 
,F<,3X«HHR  , I2«3X$hmin  i 12) 
#IS»>X32.HNAVIGATI3N  RECORDS  AND  C 

• lo*9X32HHATHTMETRY  RECORDS  AND  C 

>IOi»X32HHaGnETICS  RECORDS  AND  CO 


END 


5 i ADS  CEEREAC 


I CENT 

PREGRAH  LENGTH  02113 

ENTRY  PS1\TS  ' 5EEREA0  OCoJl 
External  bYnauus 

‘oaCENTRY 

ThENC, 

QlOlOiOO 

08;iTe°s 

CdCLICT, 

SKIEFJLC 
XMc  C F 
CUOJFEOF 

cecjrisc 

EFT, 

Rtw , 

TSH, 

STH, 

ONSINGL, 

00396  SYHBs>L6 

load 

RUN, 60, 9500 


seoread 
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